CU Amiga Super CD-ROM 4/CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso/magazine/psion/misc/electetc.lzx/lighting.opl

Text File | 2012-09-20 | 564b | 30 lines

PROC LIGHT:
LOCAL L,W,H,K,R,V,M,E,F,N
PRINT "ROOM DIMS(m) L=";
INPUT L
AT 21,1:PRINT "W=";
INPUT W
AT 28,1:PRINT "H=";
INPUT H
K=L*W/(H*(L+W))
PRINT "K-FACTOR =";FIX$(K,2,6)
PRINT "FROM THE TABLES,ROOM INDEX   (%)=";
INPUT R
R=R/100
PRINT "LIGHTING LEVEL REQD        (LUX)=";
INPUT V
PRINT "FROM THE CATLG, LAMP OUTPUT (LM)=";
INPUT M
PRINT "FROM THE CATLG, LAMP EFFY    (%)=";
INPUT E
E=E/100
PRINT "FROM THE CATLG, LAMP AGE FACTOR =";
INPUT F
N=(V*L*W)/(M*E*F*R)
PRINT
PRINT "Number of Light Fittings =";
PRINT FIX$(N,1,7)
GET
ENDP